/**
 * Copyright (c) 2004-2006, Martin Fiedler.  All rights reserved.
 * Copyright (c) 2012, Ken Anderson.  All rights reserved.
 * 
 * Redistribution and use in source and binary forms, with or without modification, 
 * are permitted provided that the following conditions are met:
 * 
 * 1. Redistributions of source code must retain the above copyright notice, 
 *    this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright notice, 
 *    this list of conditions and the following disclaimer in the documentation 
 *    and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 
 * DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR 
 * ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 
 * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 
 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON 
 * ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, 
 * EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 **/
 
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "perf.h"

#define HASH_OFFSET 0x13375EED

#define HASH_SIZE (1<<(PERF_HASH_BITS))
#define HASH_MOD ((HASH_SIZE)-1)

typedef struct _perf_entry {
  char *name;
  INT64 clocks;
} perf_entry;

perf_entry *perf_data=NULL;
perf_entry *perf_current=NULL;
INT64 perf_last_clock;


void perf_enable() {
  perf_data=(perf_entry*)calloc(HASH_SIZE,sizeof(perf_entry));
  perf_last_clock=0L;
}

void perf_enter(char *section) {
  INT64 now; 
  if(!perf_data) return;

#ifdef ZZZZ /*PERF_METHOD_x86*/
  asm(".byte 0x0f, 0x31":
    "=a" (((unsigned int *)(&now))[0]),
    "=d" (((unsigned int *)(&now))[1]));
#else
  now=0;
#endif

  if(perf_current) perf_current->clocks+=now-perf_last_clock;
  perf_current=&perf_data[(((unsigned int)section)+HASH_OFFSET)&HASH_MOD];
  perf_current->name=section;
  perf_last_clock=now;
}

void perf_summarize() {
  INT64 total;
  int i;
  perf_entry *e;
  if(!perf_data) return;

  perf_enter(NULL);
  for(e=perf_data, i=HASH_SIZE, total=0; i; --i)
    total+=(e++)->clocks;
  for(e=perf_data, i=HASH_SIZE; i; --i, ++e)
    if(e->name)
      printf("%20.0f |%6.2f%% | %s\n",(double)e->clocks,(100.0*e->clocks/total),e->name);
}
